home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / nan_news / toolkit / minter.mac < prev    next >
Text File  |  1991-06-14  |  10KB  |  325 lines
  1. ; File......: MINTER.MAC (MASM 5.1)
  2. ; Author....: David Minter
  3. ; Date......: $Date:   14 Jun 1991 19:55:24  $
  4. ; Revision..: $Revision:   1.1  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/minter.mav  $
  6. ; 
  7. ; This is an original work by David Minter and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   E:/nanfor/src/minter.mav  $
  14. ;  
  15. ;     Rev 1.1   14 Jun 1991 19:55:24   GLENN
  16. ;  Minor edit to file header
  17. ;  
  18. ;     Rev 1.0   01 Apr 1991 01:04:00   GLENN
  19. ;  Nanforum Toolkit
  20. ;  
  21.  
  22.  
  23. ; Some Equates
  24.  
  25. ;       DOS interrupts for file management
  26.  
  27. OPENFILE        equ     03dh
  28. CLOSEFILE       equ     03eh
  29. READFILE        equ     03fh
  30. WRITEFILE       equ     040h
  31. DELETEFILE      equ     041h
  32. SEEKFILE        equ     042h
  33.  
  34.  
  35. ;----------------------------------------------------------------------------
  36. ;       @SAVE   -       save registers on the stack
  37. ;----------------------------------------------------------------------------
  38. @SAVE   macro   r1,r2,r3,r4,r5,r6,r7,r8,r9
  39.  
  40.         IRP     Reg,<r1,r2,r3,r4,r5,r6,r7,r8,r9>
  41.                 IFNB    <Reg>
  42.                         push    Reg
  43.                 ENDIF
  44.         endm
  45. endm
  46.  
  47. ;----------------------------------------------------------------------------
  48. ;       @RESTORE        -       restore registers from stack
  49. ;----------------------------------------------------------------------------
  50. @RESTORE macro  r1,r2,r3,r4,r5,r6,r7,r8,r9
  51.  
  52.         IRP     Reg,<r9,r8,r7,r6,r5,r4,r3,r2,r1>
  53.                 IFNB    <Reg>
  54.                         pop     Reg
  55.                 ENDIF
  56.         endm
  57. endm
  58.  
  59. ;----------------------------------------------------------------------------
  60. ;       @DOSREQ -       DOS function request using INT 21h
  61. ;----------------------------------------------------------------------------
  62. @DOSREQ macro   function
  63.  
  64.         mov     ah,function
  65.         int     21h
  66.  
  67. endm
  68.  
  69.  
  70. ;----------------------------------------------------------------------------
  71. ;       @CALL   -       call a procedure
  72. ;----------------------------------------------------------------------------
  73. @CALL   macro procedure,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14
  74.  
  75.         _COUNT_ = 0
  76.  
  77.         EXTRN   procedure:far
  78.  
  79.         IRP     REG,<r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14>
  80.                 IFNB    <REG>
  81.                         _COUNT_ = _COUNT_ + 1
  82.                         push REG
  83.                 ENDIF
  84.         endm
  85.  
  86.         call    procedure
  87.         if _COUNT_
  88.                 add     sp,_COUNT
  89.         endif
  90.  
  91. endm
  92.  
  93. ;----------------------------------------------------------------------------
  94. ;       @BEGIN  -       Initialize a procedure macro
  95. ;----------------------------------------------------------------------------
  96. @BEGIN  macro   procedure
  97.  
  98. .code
  99.  
  100.         public  procedure
  101.         procedure proc far
  102.  
  103. endm
  104.  
  105. ;----------------------------------------------------------------------------
  106. ;       @END    -       end a procedure
  107. ;----------------------------------------------------------------------------
  108. @END    macro   procedure
  109.         procedure       endp
  110.                 end
  111.  
  112. endm
  113.  
  114. ;----------------------------------------------------------------------------
  115. ;       @PARINFO   -    get information about type of parameter passed,
  116. ;                       or the number of paramters passed.  An integer is
  117. ;                       returned in the AX register that denotes the type 
  118. ;                       of paramter passed                               
  119. ;----------------------------------------------------------------------------
  120. @PARINFO macro  _param
  121.  
  122.         EXTRN   __parinfo
  123.  
  124.         mov     ax,_param
  125.         push    ax
  126.         call    __parinfo
  127.         add     sp,2
  128.  
  129. endm
  130.  
  131. ;----------------------------------------------------------------------------
  132. ;       @PARINFA   -    get information about type of an array element, or
  133. ;                       the number of elements in the array passed.  An
  134. ;                       integer is returned in the AX register that denotes
  135. ;                       the type of an array element, or the number of 
  136. ;                       elements in the array
  137. ;----------------------------------------------------------------------------
  138. @PARINFA macro  _element,_param
  139.  
  140.         EXTRN   __parinfa
  141.  
  142.         mov     ax,_element
  143.         push    ax
  144.         mov     ax,_param
  145.         push    ax
  146.         call    __parinfa
  147.         add     sp,4
  148.  
  149. endm
  150.  
  151. ;----------------------------------------------------------------------------
  152. ;       @PARC   -       get a string from Clipper into dx:ax
  153. ;----------------------------------------------------------------------------
  154. @PARC   macro   _param
  155.         
  156.         EXTRN   __parc:far
  157.  
  158.         mov     ax,_param       ;get paramter we want
  159.         push    ax              ;send to __parc
  160.         call    __parc          ;call it
  161.         add     sp,2            ;clear the stack
  162.                                 ;dx:ax now contains the address
  163.  
  164. endm
  165.  
  166. ;----------------------------------------------------------------------------
  167. ;       @PARCLEN   -       gets length of a string from Clipper in AX
  168. ;----------------------------------------------------------------------------
  169. @PARCLEN macro  _param
  170.  
  171.         EXTRN   __parclen:far
  172.  
  173.         mov     ax,_param
  174.         push    ax
  175.         call    __parclen
  176.         add     sp,2
  177.  
  178. endm
  179.  
  180. ;----------------------------------------------------------------------------
  181. ;       @PARCSIZ   -    get allocated size of a string from Clipper.  It
  182. ;                       returns an integer in the AX register
  183. ;----------------------------------------------------------------------------
  184. @PARCSIZ macro  _param
  185.  
  186.         EXTRN   __parcsiz:far
  187.  
  188.         mov     ax,_param
  189.         push    ax
  190.         call    __parcsiz
  191.         add     sp,2
  192.  
  193. endm
  194.  
  195. ;----------------------------------------------------------------------------
  196. ;       @PARDS   -      get a date string from clipper.  It returns a pointer
  197. ;                       to a string in the DX:AX regiters.  The string is in
  198. ;                       the format YYYYMMDD
  199. ;----------------------------------------------------------------------------
  200. @PARDS  macro   _param
  201.  
  202.         EXTRN   __pards:far
  203.  
  204.         mov     ax,_param
  205.         push    ax
  206.         call    __pards
  207.         add     sp,2
  208.  
  209. endm
  210.  
  211. ;----------------------------------------------------------------------------
  212. ;@PARNI -       gets an integer from clipper in the AX register
  213. ;----------------------------------------------------------------------------
  214. @PARNI  macro   _param
  215.  
  216.         EXTRN   __parni:far
  217.  
  218.         mov     ax,_param
  219.         push    ax
  220.         call    __parni
  221.         add     sp,2
  222.  
  223. endm
  224.  
  225. ;----------------------------------------------------------------------------
  226. ;@PARL  -       gets a logical from Clipper in the AX Register.  Logical .T.
  227. ;               will equal 1, logical .F. will equal 0
  228. ;----------------------------------------------------------------------------
  229. @PARL   macro   _param
  230.  
  231.         EXTRN   __parl:far
  232.  
  233.         mov     ax,_param
  234.         push    ax
  235.         call    __parl
  236.         add     sp,2
  237.  
  238. endm
  239.  
  240. ;----------------------------------------------------------------------------
  241. ;@PARNL -       gets a long value from Clipper in the DX:AX register
  242. ;----------------------------------------------------------------------------
  243. @PARNL  macro   _param
  244.  
  245.         EXTRN   __parnl:far
  246.  
  247.         mov     ax,_param
  248.         push    ax
  249.         call    __parnl
  250.         add     sp,2
  251.  
  252. endm
  253.  
  254. ;----------------------------------------------------------------------------
  255. ;       @RETC   -       return a string to Clipper
  256. ;----------------------------------------------------------------------------
  257. @RETC    macro    _param
  258.  
  259.     EXTRN    __retc:FAR
  260.  
  261.     mov    dx, seg _param
  262.     mov    ax, offset _param
  263.     push    dx
  264.     push    ax
  265.     call    __retc
  266.     add    sp, 4
  267.  
  268. endm
  269.  
  270. ;----------------------------------------------------------------------------
  271. ;    @RETL    -    return a logical to Clipper
  272. ;----------------------------------------------------------------------------
  273. @RETL    macro    _param
  274.  
  275.     EXTRN    __retl:FAR
  276.  
  277.     mov    ax,_param
  278.     push    ax
  279.     call    __retl
  280.     add    sp, 2
  281.  
  282. endm
  283.  
  284. ;----------------------------------------------------------------------------
  285. ;    @RET    -    return a Nil to clipper
  286. ;----------------------------------------------------------------------------
  287. @RET    macro    
  288.  
  289.     EXTRN    __ret:FAR
  290.     call    __ret
  291.  
  292. endm
  293.  
  294. ;----------------------------------------------------------------------------
  295. ;       @FOPEN  -       Open a file, requires pointer to name, open mode
  296. ;                       returns a handle in AX, or -1 for error.  Open mode
  297. ;                       defaults to 0 if not passed
  298. ;----------------------------------------------------------------------------
  299. @FOPEN  macro   _segment,_offset,_openmode
  300.         local   _SkipError              ;local label used in macro only
  301.  
  302.         @SAVE   ds,dx                   ;save DS and DX
  303.  
  304.         mov     ax,_segment             ;get the segment of the file name
  305.         mov     ds,ax                   ;into DS as required by DOS
  306.  
  307.         mov     dx,_offset              ;get offset of filename as required
  308.  
  309.         IFNB    _openmode               ;if openmode passed
  310.           mov   al,_openmode            ;use it
  311.         ELSE                            ;else
  312.           xor   al,al                   ;use 0 as the default mode
  313.         ENDIF
  314.  
  315.         @DOSREQ OPENFILE                ;handle now in AX, or error code
  316.  
  317.         @RESTORE        ds,dx           ;restore DS and DX
  318.  
  319.         jnc     _SkipError              ;if no carry flag, don't change AX
  320.         mov     ax,-1                   ;else return -1 for error
  321.         _SkipError:
  322.  
  323. endm
  324. 
  325.